<< KnotTheory`

BR[Link["L2a1"]]

The unknot with a kink

MultivariableAlexander[BR[2,{1}]][t]

MultivariableAlexander[BR[2,{1,1,-1}]][t]

MultivariableAlexander[BR[3,{1,1,-1,2}]][t]

The Hopf Link

MultivariableAlexander[BR[2,{1,1}]][t]

MultivariableAlexander[BR[2,{-1,-1}]][t]

MultivariableAlexander[BR[2,{1,1,1,-1}]][t]

MultivariableAlexander[BR[2,{1,1,1,-1,1,-1}]][t]

MultivariableAlexander[BR[2,{-1,-1,1,-1}]][t]